home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / CDTools / S / HideButtons.awebrx < prev    next >
Text File  |  2000-03-28  |  1KB  |  58 lines
  1. /*
  2.     $VER: HideButtons.awebrx 1.0 (3.3.00) (c) Neil Bothwick, Wirenet
  3.     Hides the user and navigation buttons
  4. */
  5.  
  6. /* ;;; Initialise */
  7. options results
  8.  
  9. AWebPort = address()
  10. if ~abbrev(AWebPort,'AWEB.') then do
  11.     do i = 1 to 25
  12.         if show('P','AWEB.'i) then do
  13.             AWebPort = 'AWEB.'i
  14.             leave
  15.             end
  16.         end
  17.     if ~abbrev(AWebPort,'AWEB.') then exit
  18.     address(AWebPort)
  19.     end
  20. ;;;     
  21. /* ;;;Hide buttons if showing */
  22. 'getcfg showbuttons'
  23. if result = 1 then do
  24.     'setcfg showbuttons 0'
  25.     SAVE = 'YES'
  26.     end
  27. address command 'waitforport' AWebPort
  28. 'getcfg navigation'
  29. if result = 1 then do
  30.     'setcfg navigation 0'
  31.     SAVE = 'YES'
  32.     end
  33.  
  34. ;;;
  35. /* ;;; Save changes */
  36. if SAVE = 'YES' then do
  37.     if exists('ENVARC:AWeb3') then do
  38.         if ~exists('ENVARC:AWeb3/Amigactive') then address command 'makedir ENVARC:AWeb3/Amigactive'
  39.         'savesettings ENVARC:AWeb3/Amigactive'
  40.         end
  41.     if exists('ENVARC:AWeb3DEMO') then do
  42.         if ~exists('ENVARC:AWeb3DEMO/Amigactive') then address command 'makedir ENVARC:AWeb3DEMO/Amigactive'
  43.         call makedir('ENVARC:AWeb3DEMO/Amigactive')
  44.         'savesettings ENVARC:AWeb3DEMO/Amigactive'
  45.         end
  46.     end
  47. ;;;
  48. exit
  49.  
  50. /* ;;; Exit with a message */
  51. ExitMsg:
  52.     parse arg msg
  53.     'request title "AACD QuickSearch" body "'msg'" gadgets "OK"'
  54.     exit
  55.     return
  56. ;;;
  57.  
  58.